home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TOT_2.ARJ
/
DEMO.EXE
/
arc
/
EXTDEM4.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
1KB
|
56 lines
Program ExtendedDemoFour;
{EXTDEM4 - this program shows how to use the VirtualWinOBJ
object created in the unot EXTWIN. This demo
builds a virtual screen, and fills it with an
ASCII table.}
Uses DOS,CRT,
totINPUT, totFAST, totSTR, extWIN;
var
ASCIIdata: ScreenOBJ;
AscWin: VirtualWinOBJ;
procedure BuildASCIIscreen;
{}
var
I,J : integer;
Str:string;
begin
with ASCIIdata do
begin
Init;
Create(65,32,71);
for I := 0 to 31 do
begin
Str := '';
for J := 0 to 7 do
begin
Str := Str+' '+
padright(inttostr(I+32*J),3,'0')+
' '+char(I+32*J)+' ';
if J <> 7 then
Str := Str + '│';
end;
WritePlain(1,succ(I),Str);
end;
for J := 0 to 7 do
Attrib(6+J*8,1,6+J*8,32,78);
end;
end; {BuildASCIIscreen}
begin
Screen.Clear(white,'░'); {paint the screen}
Key.SetFast;
BuildASCIIscreen;
with AscWin do
begin
Init;
SetTitle(' ASCII Table ');
AssignVirtualScreen(ASCIIdata);
Go;
ASCIIdata.Done;
Done;
end;
end.